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EDTSLTYPE = TYPE and null Line-mode commands 15-06 =200- 1388 91:93:03 VAX-11 Bliss-32 V4 ity Page 1 
| 14-Sep-1984 12:23:4 DISKSVMSMASTER:CEDT.SRCILTYPE.BLI;1 (1) 
ZTITLE ° brs tree - TYPE and null Line-mode commands’ 
MODULE E ! TYPE and null Line-mode commands 
jOENT = 'v04-000' ! File: LTYPE.BLI Edit: SMB1015 
= 
BEGIN 


SRO RER EAA H ARERR AHA RAEAAA AAA EAATHEKAAAH TATRA E EKER ReHAAAAeeeeAeeeee 
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* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
'* ONLY IN ACC E THE T OF CH LIC 
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:@ CCORDANCE WITH ERMS NSE AND WITH THE 
:@ USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


ie TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. oF tg NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
This module executes the Line mode TYPE and null commands. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
MODIFIED BY: 


1-001 - Original. DJS 30-JAN-1981. This module was created by 
extracting the routines EDTSSTY_CMD and NULL_COM from the 

module EX L 
- eogular is ze, headers. JBS 20-Mar-1981 
- Change on tyr o EDTSSNULL L_cMD JBS_ 30-Mar-1981 

Switch back” to f rat butter Tf fstay. 1353 21-Apr-1982 
Add a check for /C. SMB 19-May-1 
Set a flag if Benen C actually aborts soneching, 7. qo-Meye 1982 
Stop working message before printing te yw sre 
step processin on eee select range. 1-Jul-1 

Undo yesterde s fix gooceues we want hy pr aot gurrent. Line. SMB 02-Jul-1982 
Don’t fool with ei rmatting routine. 
Make the call te EDTSSRNG Nun N in Line. oe 2-Sep-19 
Correct a typo in edit 1-01 JBS 30-Sep-198 
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vbu=b00 EDTSLIVPE = TYPE and null Cinemode commands 1pm gep-1984 W2ig3:cs — DISKSVMGMASTERCEDTCSRCILTYPE.BLI:1 °° «15 


1 ! 1-014 = Put code for es ae reste t in Ling STS is ct-1982 
i 1-015 = Remove setting of G_TRT_ONSCR. SMB 4-Dec-19 
1: 
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SOTsL Tes = - TYPE and null Line-mode commands 16-Sep- 1984 01: 93:03 VAX-11 Bliss-32 V4.0-7 Page 3 
Declaration 14-Sep-1984 12: Disk KSVMSMASTER: choi sac LTYPE.BLI;1 (2) 
s 63 ¢ 1 SSBITL ‘Declarations’ 

; 664 1! 

3 65 4 1 ! TABLE OF CONTENTS: 

; Soh 

: 67 § 1 

3 oe 386 : REQUIRE "EDTSRC: TRAROUNAM'; 

; 70 50 1 FORWARD ROUTINE 

; 71 508 1 EDTSSTY_CMD : NOVALUE, ' Process the TYPE command 
: i} 39 ! EDTSSNUCL_CMD : NOVALUE; ' Process the null command 
s; £6 031) 1! 

3 75 21§ 1 ! INCLUDE FILES: 

; 0513 1! 

ms: i 0514 1 

4 78 0515 1 REQUIRE "EDTSRC:EDTREQ'; 

ca Ve 0650 1 

; 8 0651 1! 

: 81 bee¢ 1 ! MACROS: 

= 0653 1! 

3 8 0654 1! NONE 

; 686 0655 1! 

H 85 0656 1 ! EQUATED SYMBOLS: 

3 86 0657 1! 

. Sy 0658 1! NONE 

ae. 0659 1! 

; 89 0660 1 ! OWN STORAGE: 

3 90 0661 1! 

: 91 066 24 NONE 

3 9 0665 1! 

4 S 0664 1 ! EXTERNAL REFERENCES: 

3; 6% 0665 1! ‘ 

3 95 0666 1! In the routines 
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EDTSLTYPE EDTSLTYPE = TYPE and null Line-mode commands 16-Sep-1984 01:03:0 VAX-11 Bliss-32 V4.0-74 P 4 
tees EDTSSTY. EMD - TYPE Line-mode command 1873087138 93:93:03 NTERSUMCMASTERSCEDT SRCSLTYPE-BLI:1 — (3) 
: 44 $67 } ZSBTITL ‘EDTSSTY_CMD = TYPE Line-mode command’ 
: .99 ees 1 GLOBAL ROUTINE EDTSS$TY_CMD ! TYPE Line-mode command 
: } : ety : : NOVALUE = 
4 é 6/8 1 44 
: 132 of? ! } FUNCTIONAL DESCRIPTION: 
: 105 675 1! Command processing routine for the TYPE command. Position to 
; 198 O76 1! the first Line of the range, then loop through the range 
; 10 677 1! displaying each line. If the /STAY qualifier was used, 
3 138 bere 1! then reposition fo the position at the start of the command, 
: 1% +344 : otherwise, reposition to the first Line typed. 
: 1 0681 ' FORMAL PARAMETERS: 
hE | eg 
: 115 Oss { IMPLICIT INPUTS: 
: 117 0687 1: EDT$$A_CUR_BUF 
s 198 688 1! EDT$$Z_RNG_ORIGPOS 
; #119 689 1! EDTSSA_EXE_CURCMD 
; 120 0690 1! EDTS$$G_EXE_SBITS 
; 121 0691 EDT$$G_RNG_NOOFLN 
; 138 0693 { IMPLICIT OUTPUTS: 
: 125 0695 1: EDT$$A_CUR_BUF 
: 1$6 8998 ; } EDT$$G_CC_BONE 
; 138 0698 ROUTINE VALUE: 
; 180 0700 1: NONE 
3 13 0701 1! 
: 13 0702 1 | SIDE EFFECTS: 
: 134 0704 1! NONE 
s 1355 0705 1! 
: 136 0706 1 !-- 
» Tar 0707 1 , 
: 139 0709 — 
> 140 9710 EXTERNAL ROUTINE 
3; «(141 711 EDTSSSTOP_WKINGMSG, ' Stop the yt message 
3 Fy orig EDTSS$CHK_CC ' Check for CONTROL C typed 
: 14 071 EDTSSNXT-LNRNG, 
: 144 Bete EDTSSRNG_REPOS, 
> 145 715 EDTS$RD_CURLN, 
; ‘<3 ay EDTS$TY_CURLN; 
> 148 718 EXTERNA 
3; 149 719 EDTS$G_EXT_MOD ! 1 = we are under the EXT command 
> 150 720 EDT$$G_RNG_FRSTLN 
: 151 721 EDT$$A-CUR"BUF : REF TBCB BLOCK, 
: 136 7 § EDT$$Z_-RNG_ORIGPOS : POS BLOCK, . 
3; 5 7 EDTSS$A_EXE-CURCMD : REF RODE_BLOCK, ! Pointer to the current command. 
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PE - TYPE and null Line-mode commands 18. 
- TYPE Line=-mode command 


SEE ONE 


Y 
Y 
CA ay BUF, 
STATUS; 
Sor . g ERTSSA-C CUR BUF; 
Sitti NRER (POS SI .EDTS$$A_CUR_BUF 
EDTSSANG- REPOS c SeSlte, EXE_CURCMD CRAN 
4 
4 
4 
4 


: POS_BLOCK o 


STATUS = EDTSSNXT_LNRNG (0); 


( NOT EDTSSCHK_CC ()); 
.STATUS THEN EDTSS$TY_CURLN () ELSE EDT$$G_CC_DONE = 1; 


BE 

65 EDT 

$6 EDTSSRD_CURLN (); 

76 END 
s 768 As 
90 E CUR_BUF = .SAV_BUF 
os E RD_CuUR 
0 END; 
04 
05 END; 
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SSCPY_MEM — SIZE, EDT$$Z_RNG_SAVPOS, 


1986 92:98:45 Dis 


' The options switches. 
i Set to 1 if control ¢ actually aborts something 
i number of Lines processed in a range 


X-11 8 
KSVMSM 


$s-32 V4.0-7 
STER: cED 1 SRC LTYPE.BLI;1 


Foy $82. RNG_ORIGPOS) ; 


i “fore off the “working” messoge if it might be on, since the type 


_command doesn't want competition with a flashing message. 


IF (.EDTSS$G_EXT_MOD) THEN EDTSSSTOP_WKINGMSG (); 


IF (.EDTSS$G_RNG_NOOFLN EQL 0) THEN EDTSSTY_CURLN (); 
Ren NOT .EDTS$$G_EXE_SBITS<OPB_STAY>) 


.EDTS$A_CUR_BUF); 


EGIN 

DTS$SA = 

orsscPy UREM wo “SIZE, “EbTS82 -RNG_ORIGPOS, .EDTSSA_CUR_BUF); 
ND; 


! of routine EDTSTY_CMD 


-TITLE EDTSLTYPE EDTSLTYPE - TYPE and null Line-mode c 


ommands 
\V04-000\ 


- IDENT 


Page 


(3 


5 
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eu 


; Routine Size: 


169 bytes, 


TYPE = TYPE and null Line-mode commands 
TY_CMD = TYPE Line=-mode command 


O3FC 000 
22 000000006 00 9€E 000 
8 44444 38 9E B38 
a4 000000006 ! 4 $8 
0 2 D 8 0 
56 0 pdOd 000 
000000006 00 01 00 000 
68 60 43 28 000 
50 000000006 00 00 000 
04 AO DD 000 
000000006 9 01 FB 000 
01 00 000 
07 000000006 00 €E9 000 
000000006 00 00 43 000 
2A 52 £9 000 
7E D4 000 
000000006 00 9} FB B88 
52 0 dO 000 
1B 52 €9 000 
000000006 00 00 FB 000 
3 50 D 808 
0 52 £9 000 
69 00 FB B28 
dC 11 000 
000000006 00 01 00 000 
D3 11 000 
000000006 ° 3 00 
12 000 
69 0 F 0 
000000006 00 9 8 
8 1 
50 2 00 
60 000000006 00 3 ; 09 
¢? 6 D 3 
60 o¢ D $0 
000000006 $0 5 FB 00 
04 000 
Routine Base: _EDTSCODE + 0000 
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-ENTRY 
MOVAB 


=CED 7 °she LTYPE .BLI; 1? 


TOP_WKINGMSG 

K_CC, EDTS$NXT_LNRNG 
NOCR REPOS, ED TSSRD CURLN 
¥ VACUA “EDTSSG, EXT_MOD 


MmMmmmmmmmrn 
PRMAPARARAPRHAAHM 
Por? pe 


EDTSCODE, “SNOURT, SHR, PIC, 2 


TSSTY_CMD, Save R2,R3,R4,R5,R6,R7,RB,RI 
S$TYCURLN, R9 
$1 ANG “ORIGPOS, RB 
A CUR"BUF R? 
$A” CUR”BUF * RO 
SAV_BUF 
EDTS86 _RNG_F 
(RO “Peso saNG. ORIGPOS 
T$sA_ ext CURCMD; RO™ 
EDTSSRNG_REPOS 


EDisse 1$ 
0, “EDTSSSTOP. Wk INGMSG 


T 
T 
T 
T 
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SP 
1, EDTSSNXT_LNRNG 
STATUS 
TUS, 38 
0, grange 
raATus 
2$ 
ATED ESStY_CURLN 
, EDT$$G_CC_DONE 


T$$G_RNG_NOOFLN 


DT$$TY_CURLN 
is$c. EXE_SBITS 


$$A_CUR_BUF 
, EDT$$Z7_RNG_ er vPOS. 


pores. CUR_BUF 


BUF 
A_€UR_B 
*torser” aif ORIGPOS, 
DT$$RD~CURCN 


(RO) 


BM BMwvn es Hn BF" BYDRYDRi nw 
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EDTSSNULL_CMD = null Line-mode command 14-Sep-1984 25:4 DISKSVMSMASTER: CEDT.SRCJLTYPE.BLI;1 (4) 
; oS 1444 } ZSBTTL “EDTSSNULL_CMD = nuil Line-mode command’ 
: 210 8 1 GLOBAL ROUTINE EDTSSNULL_CMD ! Null Line=-mode command 
; aii 780 1 : NOVALUE = 
; \§ 781 #1 
3 2) 7 ¢ 1 'ee 
: 13 , ! FUNCTIONAL DESCRIPTION: 
: \$ 785 1! Command processing routine for the null command. If the range is '.* 
3; et 7 § 1 § then move one Line forward and display it. Otherwise, process it as 
; is i : a TYPE comamnd, 
; 220 789 1 | FORMAL PARAMETERS: 
: 1 790 1! 
; ¢ 771 3 NONE 
; 792 1! 
3 & 793 1°! IMPLICIT INPUTS: 
; 5 0794 1! 
: : 0795 1! EDTSSA_EXE_CURCMD 
; 0796 1! 
; 8 0797 1 ! IMPLICIT OUTPUTS: 
; 2 0798 1! 
: 0 tas 1! NONE 
s gs) 800 1! 
: 3 0801 1 ! ROUTINE VALUE: 
3 €s pete 1! 
; 34 803 1! NONE 
3 €o0 0804 1! 
; #9 Bape 1 ! SIDE EFFECTS: 
3 206 1! 
; 238 0807 1! NONE 
; 239 0808 1! 
; seo 0809 1 !-- 
; 241 0810 1 
; seg 0811 BEGIN 
s 9 pels 
> 246 081 EXTERNAL ROUTINE 
> 245 0814 EDTSSRD_NXTLN, 
; 246 0815 EDTSS$TY_CURLN; 
: 267 ang 
; 248 081 EXTERNAL 
3 Sep sts EDTSSA_EXE_CURCMD : REF NODE_BLOCK; ! Pointer to the current command. 
; 3) ; 0 BIND 
: 26 1 RANGE = .EDTSSA_EXE_CURCMD CRANGE1] : NODE_BLOCK; 
3 254 H : IF (RANGE CRAN_TYPE) EQL RAN_NULL) 
3 @? 4 THEN 
; 256 ; 5 BEGIN 
3; gor $ EDTSSRD_NXTLN (); 
; 258 8 EDT$STY~CURLN () 
: 259 3 END 
; 260 ELSE 
; 61 0 EDTSSTY_CMD (); 
; 8 2 END; ! of routine EDTSSNULL_CMD 


es 


DIS Type = TYPE and null Line-mode commands 16° 
DTSSNULL_CMD = null Line=-mode command 


000 
28 000000006 00 D 
4 A 3 
1 A OD 
OF 12 00010 
000000006 00 00 FB os 
000000006 00 00 FB 0001 
04 838 0 
FF31 = CF 00 FB 00021 
04 00026 
; Routine Size: 39 bytes, Routine Base: _EDTSCODE + OOA9 
; 264 0833 1 
; 265 0834 1 !<BLF/PAGE> 


p-19be 92:98:45 Dt 
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SSNULL_ CMD save ageing 
$SA_ EXE “CURCM 


X-11 Bliss- 
SKSVMSMASTE 


» EDTSSRD_NXTLN 
#0, EDTSSTY_CURLN 


#0, EDTSSTY_CMD 
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E PE EDTSLTYPE = TYPE and null Line-mode commands bse -1984 VAX-11 Bliss-32 V4.0-74 Page 
bu 000 EDTSSNULL_CMD = null Line-mode command 122868: 1984 93: ie 23 DISKSVMSMASTER: CED Bi SRCSLTYPE. BLI;1 : 
: 267 0835 1 END ! of module EDTSLTYPE 
; 268 O83 1 
; 269 8 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
i EDTSCODE 208 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Se eee er Ter eS: ae ae SYERS(E snesenne Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: :CEDT .SRCJEDT.L32;1 377 as, 22 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 0 7 00:00.1 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LTYPE/OBJ=OBJ$:LTYPE MSRC$:LTYPE.BLI/UPDATE=(ENHS$:LTYPE) 
; size: 208 code + 0 data bytes 


; Run Time 00:14.3 
3 oe finer 00:16.9 
3; Lines/CPU Min: 50 

$ oneness SPAY ses 10325 

; panery Used: 96 pages 

; Compilation Complete 


VAX/VMS V4.0 
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